home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 22 / CU Amiga Magazine's Super CD-ROM 22 (1998)(EMAP Images)(GB)[!][issue 1998-05].iso / PowerPC / Programming / PPCSmallEiffel / bin_c / short3.c < prev    next >
Encoding:
C/C++ Source or Header  |  1998-01-16  |  3.3 KB  |  191 lines
  1. /*
  2. -- ANSI C code generated by :
  3. -- SmallEiffel The GNU Eiffel Compiler -- Release (- 0.82)      --
  4. -- Copyright (C), 1994-98 - LORIA - UHP - CRIN - INRIA - FRANCE --
  5. -- Dominique COLNET and Suzanne COLLIN -    colnet@loria.fr     --
  6. --                 http://www.loria.fr/SmallEiffel              --
  7. */
  8. #include "short.h"
  9. void r822clear_all(T822 C,int a1){
  10. int _i=0;
  11. T0* _v=NULL;
  12. _i=a1;
  13. while (!((_i)<(0))) {
  14. (C)[_i]=(_v);
  15. _i=(_i)-(1);
  16. }
  17. }
  18. void r822set_all_with(T822 C,T0* a1,int a2){
  19. int _i=0;
  20. _i=a2;
  21. while (!((_i)<(0))) {
  22. (C)[_i]=(a1);
  23. _i=(_i)-(1);
  24. }
  25. }
  26. void r822copy_from(T822 C,T822 a1,int a2){
  27. int _i=0;
  28. _i=a2;
  29. while (!((_i)<(0))) {
  30. (C)[_i]=((a1)[_i]);
  31. _i=(_i)-(1);
  32. }
  33. }
  34. T822 r822realloc(T822 C,int a1,int a2){
  35. T822 R=NULL;
  36. R=calloc(a2,sizeof(T0*));
  37. r822copy_from(R,C,(a1)-(1));
  38. return R;
  39. }
  40. void r304copy_from(T304 C,T304 a1,int a2){
  41. int _i=0;
  42. _i=a2;
  43. while (!((_i)<(0))) {
  44. (C)[_i]=((a1)[_i]);
  45. _i=(_i)-(1);
  46. }
  47. }
  48. T304 r304realloc(T304 C,int a1,int a2){
  49. T304 R=NULL;
  50. R=calloc(a2,sizeof(T0*));
  51. r304copy_from(R,C,(a1)-(1));
  52. return R;
  53. }
  54. void r113set_all_with(T113 C,T0* a1,int a2){
  55. int _i=0;
  56. _i=a2;
  57. while (!((_i)<(0))) {
  58. (C)[_i]=(a1);
  59. _i=(_i)-(1);
  60. }
  61. }
  62. int r113fast_index_of(T113 C,T0* a1,int a2){
  63. int R=0;
  64. while (!(((R)>(a2))||((a1)==((void*)((C)[R]))))) {
  65. R=(R)+(1);
  66. }
  67. return R;
  68. }
  69. void r113copy_from(T113 C,T113 a1,int a2){
  70. int _i=0;
  71. _i=a2;
  72. while (!((_i)<(0))) {
  73. (C)[_i]=((a1)[_i]);
  74. _i=(_i)-(1);
  75. }
  76. }
  77. T113 r113realloc(T113 C,int a1,int a2){
  78. T113 R=NULL;
  79. R=calloc(a2,sizeof(T0*));
  80. r113copy_from(R,C,(a1)-(1));
  81. return R;
  82. }
  83. void r354set_all_with(T354 C,T0* a1,int a2){
  84. int _i=0;
  85. _i=a2;
  86. while (!((_i)<(0))) {
  87. (C)[_i]=(a1);
  88. _i=(_i)-(1);
  89. }
  90. }
  91. int r693fast_index_of(T693 C,T0* a1,int a2){
  92. int R=0;
  93. while (!(((R)>(a2))||((a1)==((void*)((C)[R]))))) {
  94. R=(R)+(1);
  95. }
  96. return R;
  97. }
  98. void r693copy_from(T693 C,T693 a1,int a2){
  99. int _i=0;
  100. _i=a2;
  101. while (!((_i)<(0))) {
  102. (C)[_i]=((a1)[_i]);
  103. _i=(_i)-(1);
  104. }
  105. }
  106. T693 r693realloc(T693 C,int a1,int a2){
  107. T693 R=NULL;
  108. R=calloc(a2,sizeof(T0*));
  109. r693copy_from(R,C,(a1)-(1));
  110. return R;
  111. }
  112. void r586copy_from(T586 C,T586 a1,int a2){
  113. int _i=0;
  114. _i=a2;
  115. while (!((_i)<(0))) {
  116. (C)[_i]=((a1)[_i]);
  117. _i=(_i)-(1);
  118. }
  119. }
  120. T586 r586realloc(T586 C,int a1,int a2){
  121. T586 R=NULL;
  122. R=calloc(a2,sizeof(T0*));
  123. r586copy_from(R,C,(a1)-(1));
  124. return R;
  125. }
  126. void r973copy_from(T973 C,T973 a1,int a2){
  127. int _i=0;
  128. _i=a2;
  129. while (!((_i)<(0))) {
  130. (C)[_i]=((a1)[_i]);
  131. _i=(_i)-(1);
  132. }
  133. }
  134. T973 r973realloc(T973 C,int a1,int a2){
  135. T973 R=NULL;
  136. R=calloc(a2,sizeof(T0*));
  137. r973copy_from(R,C,(a1)-(1));
  138. return R;
  139. }
  140. void r884set_all_with(T884 C,T0* a1,int a2){
  141. int _i=0;
  142. _i=a2;
  143. while (!((_i)<(0))) {
  144. (C)[_i]=(a1);
  145. _i=(_i)-(1);
  146. }
  147. }
  148. int r884fast_index_of(T884 C,T0* a1,int a2){
  149. int R=0;
  150. while (!(((R)>(a2))||((a1)==((void*)((C)[R]))))) {
  151. R=(R)+(1);
  152. }
  153. return R;
  154. }
  155. void r884copy_from(T884 C,T884 a1,int a2){
  156. int _i=0;
  157. _i=a2;
  158. while (!((_i)<(0))) {
  159. (C)[_i]=((a1)[_i]);
  160. _i=(_i)-(1);
  161. }
  162. }
  163. T884 r884realloc(T884 C,int a1,int a2){
  164. T884 R=NULL;
  165. R=calloc(a2,sizeof(T0*));
  166. r884copy_from(R,C,(a1)-(1));
  167. return R;
  168. }
  169. int r692fast_index_of(T692 C,T0* a1,int a2){
  170. int R=0;
  171. while (!(((R)>(a2))||((a1)==((void*)((C)[R]))))) {
  172. R=(R)+(1);
  173. }
  174. return R;
  175. }
  176. void r692copy_from(T692 C,T692 a1,int a2){
  177. int _i=0;
  178. _i=a2;
  179. while (!((_i)<(0))) {
  180. (C)[_i]=((a1)[_i]);
  181. _i=(_i)-(1);
  182. }
  183. }
  184. T692 r692realloc(T692 C,int a1,int a2){
  185. T692 R=NULL;
  186. R=calloc(a2,sizeof(T0*));
  187. r692copy_from(R,C,(a1)-(1));
  188. return R;
  189. }
  190.  
  191.